//ABLMSCA   JOB (ABLMSC,B095SC),'10MIS-BLAKE X3659',                    00010004
//        CLASS=T,MSGCLASS=T,NOTIFY=ABLMSC                              00020000
//**                                                                    00030000
/*JOBPARM     L=999,T=99,LINECT=0                                       00040000
//**                                                                    00050000
//**                                                                    00060000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00070000
//*   +            J  2  8  1  S  C  Q  R - AD HOC         +            00080000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00090000
//*   +  SUMMARY: GL ACCT SUMMARY.                         +            00100000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00110000
//*   +  CHANGE LOG:                                       +            00120000
//*   +  XX/XX/XX  : IMPLEMENTED.                          +            00130000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00140000
//**                                                                    00150000
//STEP1010 EXEC PGM=IDCAMS                                              00160000
//SYSPRINT DD SYSOUT=*                                                  00170000
//SYSIN    DD *                                                         00180000
  DELETE 'ABLMSC.GL.SUMMARY.RPT01'                                      00190000
  SET MAXCC = 0                                                         00200000
//**                                                                    00210000
//STEP020     EXEC SAS                                                  00220000
//**                                                                    00230000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00240000
//*   +                                                    +            00250000
//*   +  STEP020 ABEND INSTRUCTIONS:                       +            00260000
//*   +  UNCATLG DSNS: NONE                                +            00270000
//*   +  GDG CHANGES : NONE                                +            00280000
//*   +  RESTORE     : NONE                                +            00290000
//*   +  REFERBACKS  : NONE                                +            00300000
//*   +  RESTART AT  : STEP010                             +            00310000
//*   +                                                    +            00320000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00330000
//*   +       EXTRACT GL SUMMARY YTD COUNTS.  ** SC  **    +            00340000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00350000
//**                                                                    00360000
//FT12F001    DD DSN=ABLMSC.GL.SUMMARY.RPT01,                           00370000
//            DISP=(NEW,CATLG,DELETE),                                  00380000
//            UNIT=DISK,                                                00390000
//            SPACE=(CYL,(1,1),RLSE),                                   00400000
//            DCB=(MODEL.DSCB,RECFM=FBA,LRECL=133,                      00410000
//            BLKSIZE=0)                                                00420000
//**                                                                    00430000
//FG111       DD DSN=J231SC.MASTER.DISKCOPY,                            00440006
//            DISP=SHR                                                  00450000
//**                                                                    00460000
//SYSIN       DD *                                                      00470000
*--------------------------------------------------------------*;       00480000
*  CHANGELOG:                                                  *;       00490000
*--------------------------------------------------------------*;       00500000
                                                                        00510000
*--------------------------------------------------------------*;       00520000
*           EXTRACT         G/L           ACTVITY.             *;       00530000
*--------------------------------------------------------------*;       00540000
 DATA G111;                                                             00550000
 INFILE   FG111;                                                        00560000
 INPUT    @01  STATUS      $1.                                          00570000
          @06  ACCPRIME    $4.                                          00580000
          @10  ACCSUBX     $1.                                          00590000
          @13  ACCDEP2     $2. @;                                       00600000
 IF       ACCSUBX = '0';                                                00630007
 INPUT    @02  ACCLOC      $2.                                          00640000
          @04  ACCDIV      $2.                                          00650000
          @10  ACCSUB1     $1.                                          00660006
          @10  ACCSUB      $3.                                          00661006
          @13  ACCDEP      $4.                                          00662000
          @32  ACCDESC     $30.                                         00663000
          @255 BEGNMO      PD8.2                                        00664000
          @263 CURRMO      PD8.2                                        00665000
          @311 PD01        PD8.2                                        00666000
          @319 PD02        PD8.2                                        00667000
          @327 PD03        PD8.2                                        00667101
          @335 PD04        PD8.2                                        00667203
          @343 PD05        PD8.2                                        00667303
          @351 PD06        PD8.2                                        00667403
          @359 PD07        PD8.2                                        00667503
          @367 PD08        PD8.2                                        00667603
          @375 PD09        PD8.2                                        00667703
          @383 PD10        PD8.2                                        00667803
          @391 PD11        PD8.2                                        00667903
          @399 PD12        PD8.2                                        00668003
          ;                                                             00668100
 IF       ACCLOC = 'SC';                                                00669000
 IF       ACCSUB  < '999';                                              00670006
 IF       ACCDEP = '1502';                                              00680009
                                                                        00750000
*------- REPORTS 01 THRU 03 -------------------;                        00760000
 TITLE1 "                                           ";                  00770000
 TITLE2 "REPORT   : 01 FOR PERIOD-     FISCAL-      " ;                 00780000
 TITLE3 "SUMMARY  : GEN LEDGER                      ";                  00790000
 TITLE4 "         :                                 ";                  00800000
                                                                        00810000
*PROC FREQ;                                                             00820000
*  TABLES ACCLOC  ;                                                     00830000
*  TABLES ACCDEP  ;                                                     00840000
*  TABLES ACCDIV  ;                                                     00850000
*  TABLES ACCSUB  ;                                                     00860000
*RUN;                                                                   00870000
                                                                        00880000
                                                                        00890000
 TITLE1 "                                           ";                  00900000
 TITLE2 "REPORT   : 01 FOR PERIOD-     FISCAL-      " ;                 00910000
 TITLE3 "SUMMARY  : GEN LEDGER                      ";                  00920000
 TITLE4 "         :                                 ";                  00930000
                                                                        00940000
 PROC TABULATE FORMAT=COMMA16.2 MISSING;                                00950000
   VAR  PD10 PD11 BEGNMO CURRMO;                                        00960009
   CLASS ACCLOC ACCSUB ACCDIV;                                          00970008
   TABLE (ACCLOC ALL)*(ACCSUB ALL)*(ACCDIV ALL),                        00980008
          PD10 PD11 BEGNMO CURRMO / RTS=30                              00990009
   BOX='SUMMARY BY ACC DEPT';                                           01000000
   KEYLABEL SUM='TOTAL';                                                01010000
 RUN;                                                                   01020000
                                                                        01030000
//**                                                                    01040000
//LAST040     EXEC DFSORT                                               01050000
//**                                                                    01060000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            01070000
//*   +  CREATE BTP JVS PRROF AND PRE-EDIT RPTS.           +            01080000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            01090000
//**                                                                    01100000
//SORTIN      DD DSN=ABLMSC.GL.SUMMARY.RPT01,                           01110000
//            DISP=SHR                                                  01120000
//SORTOUT     DD SYSOUT=T,                                              01130000
//            DEST=FIN                                                  01140000
//SYSIN       DD *                                                      01150000
  SORT FIELDS=COPY                                                      01160000
//**                                                                    01170000
//**************************   END OF JOB   **************************  01180000
